home *** CD-ROM | disk | FTP | other *** search
/ AOL File Library: 4,401 to 4,500 / aol-file-protocol-4400-4401-to-4500.zip / AOLDLs / PDA-Newton Development / ND Sony Remote 1.0.1 Source! / Rsource.sit / Project Data < prev    next >
Text File  |  1994-07-24  |  14KB  |  294 lines
  1. //--------------------------------------------------------------------------------
  2. // Application Data
  3. //--------------------------------------------------------------------------------
  4.  
  5. constant kAppSymbol   := '|SonyRmt:Flash|;
  6. constant kPackageName := "SonyRmt:Flash";
  7.  
  8. //--------------------------------------------------------------------------------
  9. //          Constants
  10. //--------------------------------------------------------------------------------
  11.  
  12. constant kCDOver10 := 0;
  13. constant kCDTrack1 := 1;
  14. constant kCDTrack10 := 2;
  15. constant kCDTrack11 := 3;
  16. constant kCDTrack12 := 4;
  17. constant kCDTrack13 := 5;
  18. constant kCDTrack14 := 6;
  19. constant kCDTrack15 := 7;
  20. constant kCDTrack16 := 8;
  21. constant kCDTrack17 := 9;
  22. constant kCDTrack18 :=10;
  23. constant kCDTrack19 := 11;
  24. constant kCDTrack2 := 12;
  25. constant kCDTrack20 :=13;
  26. constant kCDTrack3 := 14;
  27. constant kCDTrack4 :=15;
  28. constant kCDTrack5 := 16;
  29. constant kCDTrack6 := 17;
  30. constant kCDTrack7 := 18;
  31. constant kCDTrack8 := 19;
  32. constant kCDTrack9 :=20;
  33. constant kCDPrev := 21;
  34. constant kCDNext := 22;
  35. constant kCDAutoSpace :=23;
  36. constant kCDCheckProgram := 24;
  37. constant kCDClearProgram :=25;
  38. constant kCDContinue :=26;
  39. constant kCDCustomIndex := 27;
  40. constant kCDFade := 28;
  41. constant kCDFastBwd := 29;
  42. constant kCDFastFwd:=30;
  43. constant kCDIndexBwd:= 31;
  44. constant kCDIndexFwd := 32;
  45. constant kCDMusicScan :=33;
  46. constant kCDOpenClose :=34;
  47. constant kCDPause:=35;
  48. constant kCDPlay :=36;
  49. constant kCDProgram := 37;
  50. constant kCDRepeat1orAll := 38;
  51. constant kCDRepeatAB := 39;
  52. constant kCDDisc1:=40;
  53. constant kCDDisc2:= 41;
  54. constant kCDDisc3 := 42;
  55. constant kCDDisc4 :=43;
  56. constant kCDDisc5 :=44;
  57. constant kCDShuffle:=45;
  58. constant kCDSlowBwd :=46;
  59. constant kCDSlowFwd := 47;
  60. constant kCDStop := 48;
  61. constant kCDTime := 49;
  62. constant kCDVolumeUp:=50;
  63. constant kCDVolumeDown:= 51;
  64.  
  65. constant kAmpCD := 0;
  66. constant kAmpDBFB := 1;
  67. constant kAmpDelayTime := 2;
  68. constant kAmpDolby := 3;
  69. constant kAmpHall := 4;
  70. constant kAmpMuting := 5;
  71. constant kAmpOff := 6;
  72. constant kAmpPhono := 7;
  73. constant kAmpPower := 8;
  74. constant kAmpRearLvlUp := 9;
  75. constant kAmpRearLvlDown := 10;
  76. constant kAmpSimulated := 11;
  77. constant kAmpTape := 12;
  78. constant kAmpTuner := 13;
  79. constant kAmpVideo1 := 14;
  80. constant kAmpVideo2 := 15;
  81. constant kAmpVideo3 := 16;
  82. constant kAmpVideo4 := 17;
  83. constant kAmpVolumeUp := 18;
  84. constant kAmpVolumeDown := 19;
  85.  
  86. constant kTunerPresetDown := 0;
  87. constant kTunerPresetUp := 1;
  88. constant kTunerPresetShift := 2;
  89.  
  90. constant kTapeAutoPlay := 0;
  91. constant kTapeFF := 1;
  92. constant kTapePause := 2;
  93. constant kTapePlay := 3;
  94. constant kTapeRecord := 4;
  95. constant kTapeRecordPause := 5;
  96. constant kTapeReversePlay := 6;
  97. constant kTapeReverseRecord:= 7;
  98. constant kTapeRewind := 8;
  99. constant kTapeStop := 9;
  100.  
  101. constant kPhonoStart := 0;
  102. constant kPhonoStop := 1;
  103.  
  104. constant kTVChannel0 := 0;
  105. constant kTVChannel1 := 1;
  106. constant kTVChannel2 := 2;
  107. constant kTVChannel3 := 3;
  108. constant kTVChannel4 := 4;
  109. constant kTVChannel5 := 5;
  110. constant kTVChannel6 := 6;
  111. constant kTVChannel7 := 7;
  112. constant kTVChannel8 := 8;
  113. constant kTVChannel9 := 9;
  114. constant kTVBalanceL := 10;
  115. constant kTVBalanceR := 11;
  116. constant kTVBrightnessUp := 12;
  117. constant kTVBrightnessDown := 13;
  118. constant kTVChannelUp := 14;
  119. constant kTVChannelDown := 15;
  120. constant kTVColourUp := 16;
  121. constant kTVColourDown := 17;
  122. constant kTVEnter := 18;
  123. constant kTVHueUp := 19;
  124. constant kTVHueDown := 20;
  125. constant kTVInputAV := 21;
  126. constant kTVInputDigital := 22;
  127. constant kTVInputLineA := 23;
  128. constant kTVInputLineB := 24;
  129. constant kTVInputVTR := 25;
  130. constant kTVmute := 26;
  131. constant kTVNormalValues := 27;
  132. constant kTVPictureUp := 28;
  133. constant kTVPictureDown := 29;
  134. constant kTVPowerToggle := 30;
  135. constant kTVPowerOff := 31;
  136. constant kTVPowerOn := 32;
  137. constant kTVSharpnessUp := 33;
  138. constant kTVSharpnessDown := 34;
  139. constant kTVTVorVideo := 35;
  140. constant kTVVolumeUp := 36;
  141. constant kTVVolumeDown := 37;
  142.  
  143. constant kVTRAnt := 0;
  144. constant kVTRChannelUp := 1;
  145. constant kVTRChannelDown := 2;
  146. constant kVTRFF := 3;
  147. constant kVTRPause := 4;
  148. constant kVTRPlay := 5;
  149. constant kVTRPower := 6;
  150. constant kVTRRecord := 7;
  151. constant kVTRRewind := 8;
  152. constant kVTRStop := 9;
  153.  
  154. rf := OpenResFileX(Home & "Sony.rsrc");
  155.  
  156. sonyAmpCD :=  GetNamedResource("IRCD", "amp.cd", 'resource);
  157. sonyAmpDBFB :=  GetNamedResource("IRCD", "amp.dbfb", 'resource);
  158. sonyAmpDelayTime :=  GetNamedResource("IRCD", "amp.delay-time", 'resource);
  159. sonyAmpDolby :=  GetNamedResource("IRCD", "amp.dolby", 'resource);
  160. sonyAmpHall :=  GetNamedResource("IRCD", "amp.hall", 'resource);
  161. sonyAmpMuting :=  GetNamedResource("IRCD", "amp.muting", 'resource);
  162. sonyAmpOff :=  GetNamedResource("IRCD", "amp.off", 'resource);
  163. sonyAmpPhono :=  GetNamedResource("IRCD", "amp.phono", 'resource);
  164. sonyAmpPower :=  GetNamedResource("IRCD", "amp.power", 'resource);
  165. sonyAmpRearLvlUp :=  GetNamedResource("IRCD", "amp.rear-lvl+", 'resource);
  166. sonyAmpRearLvlDown :=  GetNamedResource("IRCD", "amp.rear-lvl-", 'resource);
  167. sonyAmpSimulated :=  GetNamedResource("IRCD", "amp.simulated", 'resource);
  168. sonyAmpTape :=  GetNamedResource("IRCD", "amp.tape", 'resource);
  169. sonyAmpTuner :=  GetNamedResource("IRCD", "amp.tuner", 'resource);
  170. sonyAmpVideo1 :=  GetNamedResource("IRCD", "amp.video-1", 'resource);
  171. sonyAmpVideo2 :=  GetNamedResource("IRCD", "amp.video-2", 'resource);
  172. sonyAmpVideo3 :=  GetNamedResource("IRCD", "amp.video-3", 'resource);
  173. sonyAmpVideo4 :=  GetNamedResource("IRCD", "amp.video-4", 'resource);
  174. sonyAmpVolumeUp :=  GetNamedResource("IRCD", "amp.vol+", 'resource);
  175. sonyAmpVolumeDown :=  GetNamedResource("IRCD", "amp.vol-", 'resource);
  176. sonyCDOver10 :=  GetNamedResource("IRCD", "cd.+10", 'resource);
  177. sonyCD1 :=  GetNamedResource("IRCD", "cd.1", 'resource);
  178. sonyCD10 :=  GetNamedResource("IRCD", "cd.10", 'resource);
  179. sonyCD11 :=  GetNamedResource("IRCD", "cd.11", 'resource);
  180. sonyCD12 :=  GetNamedResource("IRCD", "cd.12", 'resource);
  181. sonyCD13 :=  GetNamedResource("IRCD", "cd.13", 'resource);
  182. sonyCD14 :=  GetNamedResource("IRCD", "cd.14", 'resource);
  183. sonyCD15 :=  GetNamedResource("IRCD", "cd.15", 'resource);
  184. sonyCD16 :=  GetNamedResource("IRCD", "cd.16", 'resource);
  185. sonyCD17 :=  GetNamedResource("IRCD", "cd.17", 'resource);
  186. sonyCD18 :=  GetNamedResource("IRCD", "cd.18", 'resource);
  187. sonyCD19 :=  GetNamedResource("IRCD", "cd.19", 'resource);
  188. sonyCD2 :=  GetNamedResource("IRCD", "cd.2", 'resource);
  189. sonyCD20 :=  GetNamedResource("IRCD", "cd.20", 'resource);
  190. sonyCD3 :=  GetNamedResource("IRCD", "cd.3", 'resource);
  191. sonyCD4 :=  GetNamedResource("IRCD", "cd.4", 'resource);
  192. sonyCD5 :=  GetNamedResource("IRCD", "cd.5", 'resource);
  193. sonyCD6 :=  GetNamedResource("IRCD", "cd.6", 'resource);
  194. sonyCD7 :=  GetNamedResource("IRCD", "cd.7", 'resource);
  195. sonyCD8 :=  GetNamedResource("IRCD", "cd.8", 'resource);
  196. sonyCD9 :=  GetNamedResource("IRCD", "cd.9", 'resource);
  197. sonyCDAMSBackward :=  GetNamedResource("IRCD", "cd.AMS-Backward", 'resource);
  198. sonyCDAMSForward :=  GetNamedResource("IRCD", "cd.AMS-Forward", 'resource);
  199. sonyCDAutoSpace :=  GetNamedResource("IRCD", "cd.Auto-space", 'resource);
  200. sonyCDCheck :=  GetNamedResource("IRCD", "cd.Check", 'resource);
  201. sonyCDClear :=  GetNamedResource("IRCD", "cd.Clear", 'resource);
  202. sonyCDContinue :=  GetNamedResource("IRCD", "cd.Continue", 'resource);
  203. sonyCDCustomIndex :=  GetNamedResource("IRCD", "cd.Custom-Index", 'resource);
  204. sonyCDFade :=  GetNamedResource("IRCD", "cd.Fade", 'resource);
  205. sonyCDFastSearchBackward :=  GetNamedResource("IRCD", "cd.Fast-Search-Backward", 'resource);
  206. sonyCDFastSearchForward :=  GetNamedResource("IRCD", "cd.Fast-Search-Forward", 'resource);
  207. sonyCDIndexBackward :=  GetNamedResource("IRCD", "cd.Index-Backward", 'resource);
  208. sonyCDIndexForward :=  GetNamedResource("IRCD", "cd.Index-Forward", 'resource);
  209. sonyCDMusicScan :=  GetNamedResource("IRCD", "cd.Music-scan", 'resource);
  210. sonyCDOpenClose :=  GetNamedResource("IRCD", "cd.Open/Close", 'resource);
  211. sonyCDPause :=  GetNamedResource("IRCD", "cd.Pause", 'resource);
  212. sonyCDPlay :=  GetNamedResource("IRCD", "cd.Play", 'resource);
  213. sonyCDProgram :=  GetNamedResource("IRCD", "cd.Program", 'resource);
  214. sonyCDRepeat :=  GetNamedResource("IRCD", "cd.Repeat-1/All", 'resource);
  215. sonyCDRepeatAToB :=  GetNamedResource("IRCD", "cd.Repeat-A<->B", 'resource);
  216. sonyCDSelectDisc1 :=  GetNamedResource("IRCD", "cd.Select-Disc-1", 'resource);
  217. sonyCDSelectDisc2 :=  GetNamedResource("IRCD", "cd.Select-Disc-2", 'resource);
  218. sonyCDSelectDisc3 :=  GetNamedResource("IRCD", "cd.Select-Disc-3", 'resource);
  219. sonyCDSelectDisc4 :=  GetNamedResource("IRCD", "cd.Select-Disc-4", 'resource);
  220. sonyCDSelectDisc5 :=  GetNamedResource("IRCD", "cd.Select-Disc-5", 'resource);
  221. sonyCDShuffle :=  GetNamedResource("IRCD", "cd.Shuffle", 'resource);
  222. sonyCDSlowSearchBackward :=  GetNamedResource("IRCD", "cd.Slow-Search-Backward", 'resource);
  223. sonyCDSlowSearchForward :=  GetNamedResource("IRCD", "cd.Slow-Search-Forward", 'resource);
  224. sonyCDStop :=  GetNamedResource("IRCD", "cd.Stop", 'resource);
  225. sonyCDTime :=  GetNamedResource("IRCD", "cd.Time", 'resource);
  226. sonyCDVolumeDown :=  GetNamedResource("IRCD", "cd.Volume-Down", 'resource);
  227. sonyCDVolumeUp :=  GetNamedResource("IRCD", "cd.Volume-Up", 'resource);
  228. sonyPhonoStart :=  GetNamedResource("IRCD", "phono.start", 'resource);
  229. sonyPhonoStop :=  GetNamedResource("IRCD", "phono.stop", 'resource);
  230. sonyTapeAutoPlay :=  GetNamedResource("IRCD", "tape.auto-play", 'resource);
  231. sonyTapeFF :=  GetNamedResource("IRCD", "tape.ff", 'resource);
  232. sonyTapePause :=  GetNamedResource("IRCD", "tape.pause", 'resource);
  233. sonyTapePlay :=  GetNamedResource("IRCD", "tape.play", 'resource);
  234. sonyTapeRecord :=  GetNamedResource("IRCD", "tape.rec", 'resource);
  235. sonyTapeRecordPause :=  GetNamedResource("IRCD", "tape.rec-pause", 'resource);
  236. sonyTapeReversePlay :=  GetNamedResource("IRCD", "tape.reverse-play", 'resource);
  237. sonyTapeReverseRecord :=  GetNamedResource("IRCD", "tape.reverse-rec", 'resource);
  238. sonyTapeRewind :=  GetNamedResource("IRCD", "tape.rew", 'resource);
  239. sonyTapeStop :=  GetNamedResource("IRCD", "tape.stop", 'resource);
  240. sonyTunerPresetUp :=  GetNamedResource("IRCD", "tuner.pre+", 'resource);
  241. sonyTunerPresetDown :=  GetNamedResource("IRCD", "tuner.pre-", 'resource);
  242. sonyTunerPresetShift :=  GetNamedResource("IRCD", "tuner.shift", 'resource);
  243. sonyTVChannel0 :=  GetNamedResource("IRCD", "tv.0", 'resource);
  244. sonyTVChannel1 :=  GetNamedResource("IRCD", "tv.1", 'resource);
  245. sonyTVChannel2 :=  GetNamedResource("IRCD", "tv.2", 'resource);
  246. sonyTVChannel3 :=  GetNamedResource("IRCD", "tv.3", 'resource);
  247. sonyTVChannel4 :=  GetNamedResource("IRCD", "tv.4", 'resource);
  248. sonyTVChannel5 :=  GetNamedResource("IRCD", "tv.5", 'resource);
  249. sonyTVChannel6 :=  GetNamedResource("IRCD", "tv.6", 'resource);
  250. sonyTVChannel7 :=  GetNamedResource("IRCD", "tv.7", 'resource);
  251. sonyTVChannel8 :=  GetNamedResource("IRCD", "tv.8", 'resource);
  252. sonyTVChannel9 :=  GetNamedResource("IRCD", "tv.9", 'resource);
  253. sonyTVBalanceL :=  GetNamedResource("IRCD", "tv.balance-L", 'resource);
  254. sonyTVBalanceR :=  GetNamedResource("IRCD", "tv.balance-R", 'resource);
  255. sonyTVBrightnessUp :=  GetNamedResource("IRCD", "tv.brightness+", 'resource);
  256. sonyTVBrightnessDown :=  GetNamedResource("IRCD", "tv.brightness-", 'resource);
  257. sonyTVChannelUp :=  GetNamedResource("IRCD", "tv.ch+", 'resource);
  258. sonyTVChannelDown :=  GetNamedResource("IRCD", "tv.ch-", 'resource);
  259. sonyTVColourUp :=  GetNamedResource("IRCD", "tv.colour+", 'resource);
  260. sonyTVColourDown :=  GetNamedResource("IRCD", "tv.colour-", 'resource);
  261. sonyTVEnter :=  GetNamedResource("IRCD", "tv.enter", 'resource);
  262. sonyTVHueUp :=  GetNamedResource("IRCD", "tv.hue+(purpur)", 'resource);
  263. sonyTVHueDown :=  GetNamedResource("IRCD", "tv.hue-(green)", 'resource);
  264. sonyTVInputAV :=  GetNamedResource("IRCD", "tv.input-AV", 'resource);
  265. sonyTVInputDigital :=  GetNamedResource("IRCD", "tv.input-digital", 'resource);
  266. sonyTVInputLineA :=  GetNamedResource("IRCD", "tv.input-line-A", 'resource);
  267. sonyTVInputLineB :=  GetNamedResource("IRCD", "tv.input-line-B", 'resource);
  268. sonyTVInputVTR :=  GetNamedResource("IRCD", "tv.input-vtr", 'resource);
  269. sonyTVMute :=  GetNamedResource("IRCD", "tv.mute", 'resource);
  270. sonyTVNormalValues :=  GetNamedResource("IRCD", "tv.normal-values", 'resource);
  271. sonyTVPictureUp :=  GetNamedResource("IRCD", "tv.picture+", 'resource);
  272. sonyTVPictureDown :=  GetNamedResource("IRCD", "tv.picture-", 'resource);
  273. sonyTVPowerToggle :=  GetNamedResource("IRCD", "tv.power-(toggle)", 'resource);
  274. sonyTVPowerOff :=  GetNamedResource("IRCD", "tv.power-off", 'resource);
  275. sonyTVPowerOn :=  GetNamedResource("IRCD", "tv.power-on", 'resource);
  276. sonyTVSharpnessUp :=  GetNamedResource("IRCD", "tv.sharpness+", 'resource);
  277. sonyTVSharpnessDown :=  GetNamedResource("IRCD", "tv.sharpness-", 'resource);
  278. sonyTVTVorVideo :=  GetNamedResource("IRCD", "tv.tv/video", 'resource);
  279. sonyTVVolumeUp :=  GetNamedResource("IRCD", "tv.vol+", 'resource);
  280. sonyTVVolumeDown :=  GetNamedResource("IRCD", "tv.vol-", 'resource);
  281. sonyVTRAnt :=  GetNamedResource("IRCD", "vtr.ant", 'resource);
  282. sonyVTRChannelUp :=  GetNamedResource("IRCD", "vtr.ch+", 'resource);
  283. sonyVTRChannelDown :=  GetNamedResource("IRCD", "vtr.ch-", 'resource);
  284. sonyVTRFF :=  GetNamedResource("IRCD", "vtr.ff", 'resource);
  285. sonyVTRPause :=  GetNamedResource("IRCD", "vtr.pause", 'resource);
  286. sonyVTRPlay :=  GetNamedResource("IRCD", "vtr.play", 'resource);
  287. sonyVTRPower :=  GetNamedResource("IRCD", "vtr.power", 'resource);
  288. sonyVTRRecord :=  GetNamedResource("IRCD", "vtr.rec", 'resource);
  289. sonyVTRRewind :=  GetNamedResource("IRCD", "vtr.rew", 'resource);
  290. sonyVTRStop :=  GetNamedResource("IRCD", "vtr.stop", 'resource);
  291.  
  292. CloseResFileX(rf);
  293.  
  294.